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-- Command. Mesa; 
-- Edited by: 

Sandman on May 2, 1978 9:26 PM 

Barbara on July 31, 1978 4:31 PM 

Johnsson on August 29, 1978 11:02 AM 

DIRECTORY 

AUoDefs: FROM "aUodefs" USING [Address], 
BinaryDefs: FROM "binarydefs" USING [DIGrammar], 
CommandDefs: FROM "commanddef s" USING [ 

CommandName, GetCommandString, IDCode, WriteCommandString, 

WriteErrorString, WritelDString , Wri telString] , 
ControlDefs: FROM "controldef s" USING [FrameHandle, GlobalFrameHandle] , 
DebugBreakptDefs: FROM "debugbreakptdef s" USING [ 

Breakpoint, ClearAllBT, ClearTextBreakPoint , ListAII, OctalBreakPoint , 

TextBreakPoint , TraceAll], 
DebugContextDefs: FROM "debugcontextdef s" USING [ 

AttachlmageFile, DisplayConf iguration , DisplayProcess , DisplayQueue, 

IncorrectVersion, ListConf igurations , ListProcesses , ResetContext, 

SetConf iguration, SetModuleContext, SetOctalContext, SetProcessContext, 

SetRootConf iguration , WhereAmI, WriteWorld], 
DebugData: FROM "debugdata" USING [caseignoring, worrybreaks, worryentry], 
DebugFTPDefs: FROM "debugf tpdef s" USING [CallFTP], 
DebuggerDefs: FROM "debuggerdef s" USING [ 

Display, DisplayFrame, DisplayStack, DumpCharacter , DumpVar, FormatRecord , 

FRPointer, LA, ModuleDump, SOPointer, SymbolObject] , 
DebuglnterpretDefs: FROM "debuginterpretdef s" USING [ 

laddress, larray, Icall , Ideref, lexpression, Ipointer, Istring], 
DebugMiscDefs: FROM "debugmiscdef s" USING [ 

ControlDEL, coremap, DebugAbort, DebugProceed , DFreeString, DGetString, 

Displ ayEvalStack, IgnoreComment, LookupFail , Quit, WriteCharZ, WriteEOL], 
DebugUsefulDefs: FROM "debugusef u1 def s" . 
DebugUtilityDefs: FROM "debugutil itydef s" USING [ 

CheckFrame, CoreSwap, KillSession, LongREAD, LongWRITE, MREAD, MWRITE, 

UserProc, UserStart, Val idGlobalFrame] . 
DebugSymbolDefs: FROM "debugsymboldefs" USING [AttachSymbols], 
DIActionDefs: FROM "diactiondef s" USING [ 

Cleanup, espTosop, EvalStackEmpty , EvalStackOverf low, FreeStackltem, 

GetSetUp, IncorrectType, Inval idExpression , Inval idlnterval , InvalidType, 

NILesp, Notlmplemented, NotOnEvalStack , Transfer, TypesDontMatch, 

Types tack Empty, TypeStackOverf low] , 
DIDefs: FROM "didefs" USING [ 

ESPointer, hereESPointer, Inval idCharacter, Inval idNumber, Parse, 

ParseError, SyntaxError, TwoParse], 
DILitDefs: FROM "dilitdefs" USING [LitTablnit] , 
DITypeDefs: FROM "ditypedefs" USING [ 

SeiBoolean, SeiCardinal, SeiCharacter , Seilnteger, SeiLonglnteger, 

SeiUnspecif ied, TypeString], 
InlineDefs: FROM "inlinedefs" USING [LDIVMOD], 
lODefs: FROM "iodefs" USING [ 

ControlD, ControlF, ControlU, CR, DEL, ESC, NUL, NumberFormat , ReadChar, 

ReadEditedString , ReadID, ReadLine, Rubout, SP, WriteChar, Wri teDecimal , 

WriteNumber, WriteOctal, WriteString] , 
MiscDefs: FROM "miscdefs" USING [DestroyFakeModule] , 
Mopcodes: FROM "mopcodes" USING [zKFCB], 
ProcessDefs: FROM "processdef s" USING [ProcessHandle] , 

SDDefs: FROM "sddefs" USING [sAl ternateBreak , sBreak, sCal IDebugger , SD], 
StreamDefs: FROM "streamdefs" USING [ControlDELtyped , ResetControlDEL] . 
StringDefs: FROM "stringdefs" USING [ 

AppendChar, AppendLongNumber , AppendString , AppendSubString, 

EquivalentString, Inval idNumber , Substring, SubStringDescriptor] , 
SystemDefs: FROM "systemdefs" USING [FreeHeapNode]; 

Command: PROGRAM 

IMPORTS BinaryDefs, CommandDefs, DebugBreakptDefs, DebugContextDefs. 
DDptr: DebugData, DebugFTPDefs, DebuggerDefs, DebuglnterpretDefs, 
DebugMiscDefs, DebugSymbolDefs, DebugUtilityDefs, DIActionDefs, DIDefs, 
DILitDefs, DITypeDefs, lODefs, MiscDefs, StreamDefs, StringDefs, 
SystemDefs 

EXPORTS DebugMiscDefs, DebugUsefulDefs 

SHARES ProcessDefs «- 

BEGIN 

FrameHandle: TYPE « ControlDefs . FrameHandle; 
GlobalFrameHandle: TYPE « ControlDefs .GlobalFrameHandle; 
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Address: TYPE « AUoDefs .Address ; 

abort: SIGNAL » DebugMiscDefs.DebugAbort; 

CR: CHARACTER » lODefs.CR; 

NUL: CHARACTER - lODefs.NUL; 

SP: CHARACTER - lODefs.SP; 

commander: PUBLIC PROCEDURE [startingcontext: FrameHandle, startingpsb: ProcessDef s.ProcessHandle] ■■ 
BEGIN OPEN DebugContextDefs, DebugUtil ityDef s , DebuglnterpretDef s , CommandDefs, DebuggerDef s , Debuc 
**eakptDefs, DebugMiscDef s, DebugSymbolDef s; 
GetChar ^ FirstChar; 
SELECT ReadUChar[displayComs, kill] FROM 

'D -> SELECT ReadUChar[module, config] FROM 

'M -> Modu1eDump[getID[CR, modulename]]; 
'F «> DisplayFrame[geteitherframe[' : ]]; 
'V "> DumpVarCgetcolonidCCR, varname], mod]; 
'E »> Disp1ayEvalStack[]; 
•S ■> Disp1ayStack[]; 
'G -> WriteWond[]; 

'P "> DisplayProcess[getID[CR, processname]]; 
'Q «> Disp1ayQueue[getID[CR , queuename]]; 
'C ■> DisplayConf iguration[]; 
ENDCASE; 
'S »> SELECT ReadUChar[start, setComs] FROM 

'T »> BEGIN CheckWorryC]; UserStart[gQtgf rame[CR]] END; 
'E => SELECT ReadUChar[config, rootCtx] FROM 

'C => SetConf iguration[getco1onid[CR, conf igname]]; 
'M »> SetModuleContext[getID[CR, modulename]]; 
'0 => SetOctalContext[geteitherframe[NUL]]; 
'P => SetProcessContext[getID[CR, processname]]; 
'R «> SetRootConf iguration[getcolonid[CR, rconf igname]] ; 
ENDCASE; 
ENDCASE; 
'R => BEGIN confirm[]; ResetContext[startingcontext , startingpsb]; END; 
'C => SELECT ReadUChar[clearComs, current] FROM 
'U »> WhereAmI[]; 
'A => CaseSwitch[]; 

'0 => BEGIN confirm[]; coremap[] END; 
'L => SELECT ReadUChar[break, modBr] FROM 

'B => ClearTextBreakPoint[getparam[proc, NUL], 

getsource[], proc]; 
'T => ClearTextBreakPoint[getparam[proc, NUL], 

getsource[], proc]; 
'A => SELECT ReadUChar[breaks. exits] FROM 

•B => BEGIN confirm[]; ClearAnBT[break] END; 
'T «> BEGIN confirm[]; C1earAnBT[trace] END; 
'E => TraceAll [getmodu1e[CR], clear, entry]; 
'X => TraceAn[getmodule[CR], clear, exit]; 
ENDCASE; 
'E => SELECT ReadUChar[breakComs, traceComs] FROM 
'B «> BreakPoint[getparam[proc,CR], NIL, 

break, clear, entry]; 
•T => BreakPoint[getparam[proc,CR], NIL, 

trace, clear, entry]; 
ENDCASE; 
'X »> SELECT ReadUChar[breakComs, traceComs] FROM 
'B «> BreakPoint[getparam[proc.CR] , NIL, 

break, clear, exit]; 
'T «> BreakPoint[getparam[proc,CR], NIL, 

break, clear, exit]; 
ENDCASE; 
'M => SELECT ReadUChar[breakComs, traceComs] FROM 
'B «> ClearTextBreakPoint[getmodule[NUL], 

getsource[], prog]; 
•T «> ClearTextBreakPoint[getmodule[NUL], 

getsource[], prog]; 
ENDCASE; 
ENDCASE; 
ENDCASE; 
'P »> BEGIN confirm[]; SIGNAL DebugProceed END; 
•L «> SELECT ReadUChar[conf igs, traces] FROM 



'C «> BEGIN confirm[] 
'P -> BEGIN confirm[] 
'B «> BEGIN confirm[] 
'T «> BEGIN confirm[] 
ENDCASE; 
'B «> SELECT ReadUChar[entry, procBr] FROM 



ListConf igurations[]; END; 
ListProcesses[]; END; 
ListAn[breakj; END; 
ListAn[trace]; END; 
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'E «> BreakPoint[g8tpfoccondition[CR], 

(IF conditionfound TttEN condition ELSE NIL), break, set, entry]; 
'X *> BreakPoint[getproccondition[CR], 

(IF conditionfound THEN condition ELSE NIL), break, set, exit]; 
'M =»> TextBreakPoint[getprogcondition[], getsource[], 
(IF conditionfound THEN condition ELSE NIL), 
break, prog]; 
'P ■> TextBreakPoint[getproccondition[NUL], getsource[], 
(IF conditionfound THEN condition ELSE NIL), 
break, proc]; 
ENDCASE; 
'T -> SELECT ReadUChar[an, procBr] FROM 

'A »> SELECT ReadUC}iar[entries, exits] FROM 

•E «> TraceA11[getmodule[CR] , set, entry]; 
'X ■> TraceA11[getmodu1e[CR], set, exit]; 
ENDCASE; 
'E «=> BreakPoint[getproccondition[CR] , 

(IF conditionfound THEN condition ELSE NIL), trace, set, entry]; 
'X «> BreakPoint[getproccondition[CR], 

(IF conditionfound THEN condition ELSE NIL), trace, set, exit]; 
'M «> TextBreakPoint[getprogcondition[] , getsource[]. 
(IF conditionfound THEN condition ELSE NIL), 
trace, prog]; 
•P => TextBreakPoint[getproccondition[NUL] , getsource[], 
(IF conditionfound THEN condition ELSE NIL), 
trace, proc]; 
ENDCASE; 
•0 «> SELECT ReadUChar[read, clearBreak] FROM 
'R => ReadOcta1[]; 
•W => WriteOctal[]; 

'C «> Octa1BreakPoint[getgf rame[NUL] , getbytepc[], clear]; 
'S => Octa1BreakPoint[getgf rame[NUL] , getbytepc[], set]; 
ENDCASE; 
•I «> SELECT ReadUChar[can , string] FROM 

'C => BEGIN CheckWorry[]; Icall [getparam[proc .NUL]] END; 
'0 => Iaddress[getcolonid[NUL, varname]]; 
'P => Ipointer[getco1onocta1 [] , getparam[type,NUL]]; 
'A B> Iarray[getidp1us[array] , arrayindex, arraycount]; 
'D «> Ideref [getcolonid[NUL, varname]]; 
'E =«> Iexpression[]; 

'S => Istring[getidplus[string] , stringindex, stringcount]; 
ENDCASE; 
'Q => BEGIN CheckWorry[]; confirm[]; SIGNAL Quit; END; 
'U => BEGIN confirm[]; CoreSwap[showscreen] ; END; 
'W "> WorrySwitch[] ; 

•A «> SELECT ReadUChar[ascii. attach] FROM 
'S => AsciiRead[]; 
'T => SELECT ReadUChar[attachI. attachS] FROM 

'I «> AttachImageFi1e[getco1onid[CR, imagename]]; 
'S «> AttachSymbol s[getgframe[NUL] , 

getparam[f ile, CR]]; 
ENDCASE; 
ENDCASE; 
'F => Dump\/ar[getcolonid[CR , varname], config]; 
lODefs.ControlU => BEGIN confirm[]; 
lODefs.ControlF «> BEGIN confirm[]; 
lODefs.ControlD «> BEGIN confirm[]; 
'- «> IgnoreComment[] ; 

SP «> BEGIN lODef s .ReadLine[expression] ; Interpreter[expression] ; END; 
'K => BEGIN confirm[]; SIGNAL DebugUti 1 i tyDef s . KillSession END; 
ENDCASE; 
RETURN 
END; 

CallDebugger: PROCEDURE = MACHINE CODE 

BEGIN Mopcodes.zKFCB, SDOef s . sCallDebugger END; 

CheckWorry: PROCEDURE - 
BEGIN 

IF -DDptr.worryentry THEN RETURN; 
CommandDef s .Wri teErrorString[naworry]; 
SIGNAL abort; 
RETURN 
END; 



UserProc[]; END; 
DebugFTPDefs.CanFTP[]; END; 
CallDebuggerC]; END; 



confirm: PUBLIC PROCEDURE 
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BEGIN 

Comman dDef s. Wr i te IDS tring[ confirm]; 

IF inchar[] # lODefs.CR THEN 00 

[] i- inchar[]; lODef s .WriteChar[ ' ?] ENDLOOP; 
DebugMiscDefs.WriteEOL[]; 
RETURN 
END; 

inchar: PROCEDURE RETURNS [c: CHARACTER] - 
BEGIN OPEN lODefs; 

IF (c ^ ReadChar[]) - DEL THEN SIGNAL Rubout; 
RETURN 
END; 

GetChar: PROCEDURE RETURNS [CHARACTER]; 

FirstChar: PROCEDURE RETURNS [c: CHARACTER] ■ 
BEGIN 
index <- 0; 
IF (c ^ inchar[]) - lODefs.ESC THEN 

BEGIN GetChar ^ RepeatChars; RETURN[command[0]] ; END; 
GetChar <- NewChars; 
RETURN[command[0] <- c] 
END; 

RepeatChars: PROCEDURE RETURNS [CHARACTER] - 
BEGIN 

RETURN[command[index <- index+1]] 
END; 

NewChars: PROCEDURE RETURNS [c: CHARACTER] - 
BEGIN 

c ^ inchar[]; 

RETURN[command[index <- index+1] ^ c] 
END; 

command: STRING <- [6]; 
index: CARDINAL; 

ReadUChar: PROCEDURE [beginning, last: CommandDef s .CommandName] 
RETURNS [c: CHARACTER] =» 
BEGIN OPEN CommandDefs, lODefs; 
i: CommandName; 

ssd: StringOefs.SubStringDescriptor; 
ss: StringDefs, Substring ^ 6ssd; 
c <r GetChar[]; 

IF c IN ['a^'z] THEN c <- c - 40B; 
IF c » '? THEN 

BEGIN 

Wri teChar[c]; 

typeoptions[beginning , last]; 

SIGNAL abort; 

END; 
FOR i IN CommandName[beginning. .last] DO 

GetCommandString[i ,ss]; 

IF ss.base[ss. offset] « c THEN 

BEGIN WriteCommandString[i]; StreamDef s . ResetControlDEL[] ; RETURN END; 

ENDLOOP; 
WriteChar[c]; Wri teChar[ ' ?] ; 
SIGNAL abort; 
RETURN 
END; 

typeoptions: PROCEDURE [beginning, last: CommandDef s .CommandName] - 
BEGIN OPEN CommandDefs; 
i: CommandName; 
DebugMiscDefs.WriteEOL[]; 
WriteErrorString[options]; 
FOR i IN CommandName[beginning. . last) DO 

WriteCommandString[i]; 

IODefs.WriteString[", "L]; 

ENDLOOP; 
WriteCommandString[last]; 

DebugMiscDef s .WriteEOL[] ; WriteErrorString[retry]; 
RETURN 
END; 



Command. mesa 2-Sep-78 15:32:14 Page 



expression: STRING ^ [100]; 

condition: STRING ^ [100]; 

conditionfound: BOOLEAN ^ FALSE; 

attachname: STRING <- [40]; 

imagename: STRING *- [40]; 

varname: STRING <- [40]; 

procname: STRING ^ [40]; 

modulename: STRING <- [40]; 

arrayname: STRING ^ [40]; 

typename: STRING ^ [40]; 

sourceline: STRING *- [60]; 

strname: STRING ^ [40]; 

rconfigname: STRING <- [40]; 

configname: STRING ♦- [40]; 

lastoctal, lastlframe, lastframe, lastgframe, lastpc: UNSPECIFIED; 

SysProcl: PROCEDURE [v: UNSPECIFIED] ■ 
BEGIN 

CommandDefs.WriteIDString[dashes]; 
IODefs.WriteOcta1[v]; 
RETURN 
END; 

DReadNumber: PUBLIC PROCEDURE [default: UNSPECIFIED, radix: CARDINAL] 
RETURNS [UNSPECIFIED] - 
BEGIN OPEN InlineDefs; 
s: STRING *- [60]; 
c: ARRAY [0. .6) OF [0. .9]; 
cp. i: CARDINAL ^ 0; 
IF radix » 10 AND LOOPHOLE[def auU. INTEGER] < THEN 

BEGIN default «- -default; s[0] ^ '-; cp ♦- 1 END; 
DO 

[default, c[i]] ^ LDIVMOD[defauU,0, radix]; 

IF default = THEN EXIT; 

i 4- i + 1; 

ENDLOOP; 
FOR i DECREASING IN [0..i] DO 

s[cp] <r LOOPHOLE[c[i] + LOOPHOLE['0, INTEGER], CHARACTER]; 

cp ♦- cp + 1; 
ENDLOOP; 
IF radix ■ 8 THEN 

BEGIN s[cp] <- 'B; cp ^ cp + 1 END; 
s. length ♦- cp; 
IODefs.ReadID[s]; 

RETURN[StringExpressionToNumber[s, radix]]; 
END; 

StringExpressionToNumber: PUBLIC PROCEDURE [s: STRING, defradix: CARDINAL] 
RETURNS [v:UNSPECIFIED] -« 
BEGIN 

Iv: DebuggerDef s .LA <- [LI[StringExpressionToLongNumber[s .defradix]]]; 
RETURN[lv.low] 
END; 

StringExpressionToLongNumber: PROCEDURE [s: STRING, defradix: CARDINAL] 
RETURNS [v: LONG INTEGER] - 
BEGIN OPEN InlineDefs; 
char, lastop: CHARACTER; 
cp: CARDINAL <- 0; 
radix: CARDINAL; 
v8, vlO, number: LONG INTEGER; 
endofstring: BOOLEAN ^ FALSE; 
getchar: PROCEDURE RETURNS [CHARACTER] - 

BEGIN 

char <- s[cp]; 

IF (cp ♦- cp+1) > s. length THEN char ^ NUL; 

RETURN[char]; 

END; 
digits: ARRAY CHARACTER[ ' 0. . '9] OF CARDINAL « [0,1,2,3,4,5,6,7,8,9]; 

V <- number ♦■ 0; lastop <- ' + ; 
UNTIL endofstring DO 

v8 <- vlO «~ 0; 

radix <- defradix; 

DO 
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SELECT getchar[] FROM 
IN ['C.-g] -> 
BEGIN 

v8 <- v8*8 + digits[char]; 
vlO <- vlO*10 + digits[char]; 
number *- IF radix » 8 THEN v8 ELSE vlO; 
END; 
'b.'B "> BEGIN number ^ v8; radix <- 8; GOTO exponent END; 
'd.'D «> BEGIN number ^ vlO; radix ^ 10; GOTO exponent END; 
'+,'-, '*. •/ ■> GOTO operation; 

NUL "> BEGIN endofstring ^ TRUE; GOTO operation END; 
<- • »> NULL; 

ENDCASE «> SIGNAL StringDef s . Inval idNumber; 
REPEAT 

operation »> 
BEGIN 

SELECT lastop FROM 
'+ a> V <- V + number; 
• - «> V ♦- V - number; 
' * »> V ♦- V * number ; 
'/ «> V ♦- V / number; 
ENDCASE; 
lastop ♦- char; 
END; 
exponent ■> 
BEGIN 

1i: LONG INTEGER; 
vlO ♦- 0; 

WHILE getchar[] IN [•0..'9] DO 
vlO ♦- vlO*10 + digits[char]; 
ENDLOOP; 
cp <- cp-1; -- took one too many 
FOR li ♦- 1, 1i + l UNTIL li > vlO DO 
number <- number*radix; 
ENDLOOP; 
END; 
ENDLOOP; 
ENDLOOP; 
END; 

getsource: PROCEDURE RETURNS [STRING] » 
BEGIN 

s: STRING <- [60]; 
CopyString[s, sourceline]; 
CommandDef s, Write IDS tringi source]; 
IODefs.ReadLine[s]; 
CopyString[source1 ine, s]; 
RETURN[source1ine] 
END; 

CommandAbort: PUBLIC SIGNAL = CODE; 

getcolonid: PROCEDURE [c: CHARACTER, s: STRING] RETURNS [STRING] ■ 
BEGIN 

IODefs.WriteChar[' :]; lODeFs .WriteChar[ • ]; 
RETURN[getIDcheck[c.s]] 
END; 

getcolonoctal: PROCEDURE RETURNS [n: UNSPECIFIED] ■ 
BEGIN 

IODefs.WriteChar[' :]; lODef s . WriteChar[ ' ]; 
n <- lastoctal ♦- DReadNumber[1astoctal . 8]; 
RETURN 
END; 

arraycount, arrayindex: CARDINAL «- 0; 
stringcount, stringindex: CARDINAL <- 0; 
AS: TYPE » {array, string}; 

getidplus: PROCEDURE [type: AS] RETURNS [STRING] - 

BEGIN 

s: STRING ^ IF type ■ array THEN arrayname ELSE strname; 

s <- getco1onid[NUL,s] ; 

IF type '^ array 

THEN [arrayindex, arraycount] <- getindexcount[arrayindex, arraycount] 
ELSE [stringindex, stringcount] <- ge tindexcount[stringindex, stringcount]; 
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IODefs.WriteChar[CR]; 

RETURN[s]; 

END; 

getindexcount: PROCEDURE [index, count: CARDINAL] RETURNS [CARDINAL, CARDINAL] 
BEGIN 

CommandDefs.WritelDString [start]; 
index ♦- DReadNumber[count + index, 10]; 
CommandDefs.WriteIDString[num]; 
count ^ DReadNumber[count, 10]; 
RETURN[index. count]; 
END; 

getframe: PROCEDURE [c: CHARACTER] RETURNS [n: FrameHandle] ■ 
BEGIN 

IF c ■ •: THEN lODef s .WriteString[" : "L] 
ELSE CommandDefs.WriteIDString[ frame]; 
n <r DReadNumber[1ast1frame,8]; 
IF -DebugUtilityDefs.CheckFrame[n] THEN 

BEGIN CommandDefs.WriteErrorString[notframe]; SIGNAL abort END; 
lastlframe ^ n; 
IODefs.WriteChar[CR]; 
RETURN 
END; 

getgframe; PROCEDURE [c: CHARACTER] RETURNS [g: Global FrameHandle] - 
BEGIN 

CommandDef s.WriteIDString[gf rame]; 
g <r DReadNumber[lastgf rame,8] ; 
IF ~DebugUtilityDefs.ValidGlobalFrame[g] THEN 

BEGIN CommandDefs.WriteErrorString[notgframe]; SIGNAL abort END; 
lastgframe ^ g; 
DebugMiscDefs.WriteCharZ[c]; 
RETURN 
END; 

geteitherframe: PROCEDURE [c: CHARACTER] RETURNS [f: UNSPECIFIED] » 
BEGIN 

IF c « ': THEN lODef s .Wri teString[" : "L] 
ELSE CommandDefs.WritelDString [frame]; 
f ^ DReadNumber[lastf rame.B]; 
IF DebugUtilityDefs.CheckFrame[f] OR DebugUtil i tyDef s. Val idGlobalFrame[f ] 

THEN lastframe ^ f 
ELSE BEGIN CommandDef s .Wri teErrorString[notf rame] ; SIGNAL abort END; 
IODefs.WriteChar[CR]; 
RETURN 
END; 

getbytepc: PROCEDURE RETURNS [n: UNSPECIFIED] ■" 
BEGIN 

CommandDef s. Write I DString[bytepc]; 
lastpc <- n ♦- DReadNumber[lastpc,8]; 
IODefs.WriteChar[CR]; 
RETURN 
END; 

getmodule: PROCEDURE [c: CHARACTER] RETURNS [STRING] => 
BEGIN OPEN CommandDefs; 
temp: STRING ^ [40]; 
WriteIDString[mod] ; 
CopyString[temp,modulename] ; 
IODefs.ReadID[temp]: 
DebugMiscDef s .WriteCharZ[c]; 
CopyString[modulename, temp] ; 
RETURN[modulename] 
END; 

getparam: PROCEDURE [name: CommandDef s . IDCode, c: CHARACTER] 
RETURNS [STRING] - 
BEGIN OPEN CommandDefs; 
WriteIDString[name]; 
SELECT name FROM 

proc «> RETURN[gBtIDcheck[c , procname]]; 

type «> RETURN[get[Dcheck[c , typename]]; 

file «> RETURN[getIDcheck[c, attactiname]]; 

ENDCASE »> ERROR; 
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END; 

getlDcheck: PROCEDURE [c: CHARACTER, s: STRING] RETURNS [STRING] - 
BEGIN 

temp: STRING <r [40]; 
CopyString[temp,s]; 
IODefs.ReadID[temp]; 
IF temp[0] -IN ['A..'Z] AND temp[0] '-IN['a..'z] THEN 

BEGIN CommandDefs.WriteErrorString[inva1idID]; SIGNAL abort END; 
DebugMiscDefs.WriteCharZ[c]; 
CopyString[s,temp]; 
RETURN[s] 
END; 

idfound: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] ■ 
BEGIN RETURN[c « lODefs.CR OR c ■ lODefs.SP] END; 

crfound: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] ■ 
BEGIN RETURN[c « lODefs.CR] END; 

getproccondition: PROCEDURE [c: CHARACTER] RETURNS [STRING] ■ 
BEGIN OPEN CommandDefs; 
IF c # NUL THEN WriteIDString[proc] 
ELSE IODefs.WriteString[": "L]; 
IF IODefs.ReadEditedString[procname, idfound, TRUE] - SP THEN 

BEGIN --terminate by SP means go on, CR means done 

WriteIDString[condition]; 

--condition terminated by CR 

[] 4- IODefs.ReadEditedString[condition, crfound, TRUE]; 

conditionfound <- TRUE; 

END 
ELSE conditionfound ^ FALSE; 
DebugMiscDef s.WriteCharZ[c] ; 
RETURN[procname] 
END; 

getprogcondition: PROCEDURE RETURNS [STRING] ■ 
BEGIN OPEN CommandDefs; 

lODef s . Wr i teChar[ ' : ] ; lODef s . Wri teChar[ ' ] ; 
IF I0Defs.ReadEditedString[modu1ename, idfound, TRUE] « SP THEN 

BEGIN --terminate by SP means go on, CR means done 

WriteIDString[condition]; 

lODef s.ReadLine[condition] ; --terminated by CR 

conditionfound ^ TRUE; 

END 
ELSE conditionfound *- FALSE; 
RETURN[modu1ename] 
END; 

queuename: STRING <- [40]; 
processname: STRING ♦- [40]; 

getID: PROCEDURE [c: CHARACTER, s: STRING] RETURNS [STRING] - 
BEGIN 

temp: STRING <- [40]; 
CopyString[temp, s]; 
IODefs.WriteString[": "L]; 
IODefs.ReadID[s]; 
DebugMiscDefs.WriteCharZ[c]; 
CopyString[temp, s]; 
RETURN[s] 
END; 

CopyString: PROCEDURE [to: STRING, from: STRING]- 
BEGIN 

to. length ^ 0; 

StringDef s. AppendString[to, from]; 
RETURN 
END; 

WorrySwitch: PROCEDURE - 

BEGIN OPEN DebugUtilityDefs, SDDefs, CommandDefs; 

oldsBRK: UNSPECIFIED; 

IF DDptr.worrybreaks THEN WritelDStr ing[off ] ELSE Wr iteIDString[on]; 

conrirm[] ; 

DDptr.worrybreaks <- '-DDptr.worrybreaks; 
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oldsBRK ♦- MREAD[SD+sBreak]; 
MWRITE[SD+sBreak, MREAD[SD+sAnernateBreak]]; 
MWRITE[SD+sAUernateBreak, oldsBRK]; 
RETURN 
END; 

CaseSwitch: PROCEDURE » 
BEGIN 
IF DDptr.caseignoring THEN CommandDef s.WriteIDString[on] 

ELSE CommandDef s.WriteIDString[off]; 
conf irm[] ; 

DDptr.caseignoring < — DDptr.caseignoring; 
RETURN 
END; 

LA: TYPE « DebuggerDef s .LA; 

raddress, waddress: LA ^ LA[LA[low:0, high:0]]; 
rcount: CARDINAL ^ 0; 

ReadOctal : PROCEDURE ■ 
BEGIN OPEN lODefs; 



CARDINAL; 
INTEGER; 
INTEGER ^ -1; 



CommandDef s.WriteIDString[addr]; 

waddress *- raddress ^ DReadLongAddress[LA[LI[1 i : raddress. 1 i+rcount]] ,8]; 

CommandDef s.WriteIDString[num]; 

rcount <- DReadNumber[rcount, lOJ; 

FOR j IN [0. .rcount) DO 

IF StreamDefs.ControlDELtyped[] THEN SIGNAL DebugMiscDef s .ControlDEL; 
IF (i ♦- i + 1) MOD 8 « THEN 
BEGIN 

DebugMiscDefs.WriteEOL[]; 

DWriteLongAddress[LA[LI[li: raddress. li+j]], 8]; 
WriteChar['/] 
END; 
WriteChar[' ]; 

WriteNumber[n <- DebugUtil ityOefs .LongREAD[ raddress. Ip+j], NumberFormat[8,FALSE.TRUE,6]] ; 
WriteChar[IF n -IN[0..7] THEN 'B ELSE ' ]; 
ENDLOOP; 
RETURN 
END; 

WriteOctal : PROCEDURE - 

BEGIN OPEN DebugUtilityDefs; 

CommandDef s .WriteIDString[addr]; 

waddress ♦- DReadLongAddress[waddress ,8]; 

CommandDef s .WritelDSt ring [gets]; 

LongWRITE[waddress . 1p , DReadNumber[LongREAD[waddress . Ip] ,8]]; 

waddress. li ^ waddress. 1 i+1 ; 

RETURN 

END; 

DReadLongNumber: PROCEDURE [default: LONG INTEGER, radix: CARDINAL] 
RETURNS [LONG INTEGER] « 
BEGIN 

longAddress: STRING ♦- [30]; 

DAppendLongNumber[longAddress, default, radix]; 
lODefs. Re ad ID[ longAddress]; 

RETURN[DStringToLongNumber[ longAddress, radix]] 
END; 

DWriteLonglnteger: PUBLIC PROCEDURE [number: LONG INTEGER, radix: CARDINAL] - 
BEGIN 

longAddress: STRING <- [30]; 

DAppendLongNumber[longAddress , number, radix]; 
lODef s. Writes tring[ longAddress]; 
RETURN 
END; 

DReadLongAddress: PROCEDURE [default: LA, radix: CARDINAL] 
RETURNS [LA] - LOOPHOLE[DReadLongNumber] ; 

DWriteLongAddress: PROCEDURE [number: LA, radix: CARDINAL] " 
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L00PH0LE[DWriteLongInteger3 ; 

DWriteLongPointer: PUBLIC PROCEDURE [number: LONG POINTER, radix: CARDINAL] - 
LO0PH0LE[DWriteLongInteger] ; 

DAppendLongNumber: PROCEDURE [s: STRING, number: LONG INTEGER, radix: CARDINAL] 
BEGIN OPEN StringDefs; --to check for overflow 
IF number - FIRST[LONG INTEGER] THEN 

IF radix ■ 8 THEN 

BEGIN AppendString[s, "20000000000B"L]; RETURN END 

ELSE AppendString[s. "-2147483648"L] 
ELSE AppendLongNumberis, number, radix]; 
IF radix « 8 THEN AppendChar[s, 'B]; 
RETURN 
END; 

DStringToLongNumber: PUBLIC PROCEDURE [s: STRING, radix: CARDINAL] 
RETURNS [LONG INTEGER] ■ 

BEGIN OPEN StringDefs; --to check for overflow 
IF (EquivalentString[s."20000000000B"L] AND radix « 8) OR 
(Equiva1entString[s,"-2147483648"L] AND radix » 10) 
THEN RETURN[FIRST[LONG INTEGER]]; 
RETURN[StringExpressionToLongNumber[s, radix]] 
END; 

asciiaddress: LA <- LA[LA[low: 0, high: 0]]; 
acount: CARDINAL ♦- 0; 

AsciiRead: PROCEDURE - 
BEGIN 

i: CARDINAL; 

s: PACKED ARRAY [0..1] OF CHARACTER; 
p: POINTER - 0s; 

CommandDefs .WriteIDString[addr]; 

asciiaddress <- DReadLongAddress[LA[LI[1 i :asci i address. 1 i+acount/2]],8]; 
CommandDefs .WriteIDString[num]; 
acount ♦- DReadNumber[acount, 10]; 
DebugMiscDefs.WriteEOL[]; 
FOR i IN [0. .acount) DO 

IF i MOD 2 = THEN 

pt 4- DebugUtil ityDefs.LongREAD[asciiaddress.1p+i/2]; 

IODefs.WriteChar[s[i MOD 2]]; 

ENDLOOP; 
RETURN 
END; 

table: POINTER; 

PrintExp: PUBLIC PROCEDURE [esp: DIDef s . ESPointer] » 
BEGIN OPEN lODefs, DebuggerDef s ; 

--check for fakes, then interface to old debugger Display 
s: STRING; 
so: SymbolObject; 
sop: SOPointer <- 0so; 
fr: FormatRecord; 
frp: FRPointer <- 0fr; 
SELECT TRUE FROM 

esp.intN «> --ignore interval, already printed 

NULL; 
esp.desc ■> --print as descriptor 

WITH esp SELECT FROM 
here »> 
BEGIN 

WriteString["DESCRIPTOR[base: "L]; 
WriteOctal[(ptr)t]; 
WriteString["t , length: "L]; 
WriteOctal[(ptr+l)t]; 
WriteString["] "L]; 
SystemDefs .FreeHeapNode[ptr]; 
END; 
ENDCASE -> ERROR; 
(esp . indirection it 0) »> --print as pointer 
WITH e:esp SELECT FROM 

here -> BEGIN Wr iteOctal[e. value] ; WriteChar[ ' t]; END; 
there «> 
BEGIN 



Command. mesa 2-Sep-78 15:32:14 Page 11 



WITH e SELECT FROM 

short »> WriteOcta1[DebugUtilityDGfs.MREAD[shortAddr]]; 
long »> WriteOcta1[DebugUti1ityDefs.LongREAD[1ongAddr.lp]]; 
ENDCASE; 
WriteChar['t]; 
END; 
ENDCASE «-> ERROR; 
(DITypeDefs.TypeString[8sp] AND esp.tag - here) ■> --print here strings 
WITH esp SELECT FROM 
here ■> 

BEGIN OPEN ss: L00PH0LE[va1 ue , StringDefs .Substring] ; 
s ^ DebugMiscDef s.DGetString[ss . length]; 
StringDef s.AppendSubString[s,@ss]; 
WriteString[s]; 
DebugMiscDefs.DFreeString[s]; 
END; 
ENDCASE «> ERROR; 
(esp.stbase =* NIL) -> --print predefined types 
BEGIN 

p: DIDefs .hereESPointer <- DIActionDef s .Transf er[esp]; 
SELECT p.tsei FROM 

DITypeDef s .Seilnteger «> WriteDecimal[p .value] ; 

DITypeDef s.SeiCardinal «> WriteOctal [p, value] ; 

DITypeDef s .SeiCharacter => DebuggerDefs .DumpCharacter[p. value] ; 

DITypeDefs.SeiBoolean «> WriteString[ 

IF L00PHOLE[p. value, BOOLEAN] THEN "TRUE"L ELSE "FALSE"L]; 
DITypeDef s.SeiUnspecified => WriteOctal [p. value]; 
DITypeDef s .SeiLonglnteger => 
BEGIN num: LONG INTEGER; 

num *- LOOPHOLE[p.ptr, POINTER TO LONG INTEGER]t; 
DWriteLongInteger[num, 10]; 
END; 
ENDCASE «> ERROR; 
END; 
ENDCASE "> 

BEGIN 
fr ♦■ [indentation: 2, symdelim: ' = , intersym: CR, startchar: NUL, 

termchar: NUL, symid: TRUE, firstsym: TRUE]; 
DIActionDefs .espTosop[esp , sop]; 
DebuggerDefs.Display[sop,f rp.TRUE]; 
END; 
DIActionDefs . FreeStackItem[esp]; 
RETURN 
END; 

Interpreter: PROCEDURE [s: STRING] - 

BEGIN OPEN DIActionDefs, DIDefs, DITypeDefs, lODefs, CommandDefs; 
IF s. length « THEN RETURN; 
InterpretString[s, PrintExp, FALSE 
1 DebugMiscDef s .LookupFail «> 

BEGIN WriteChar[' 1]; WriteString[s] ; CONTINUE END; 
DebugContextDef s. IncorrectVersion => RESUME; 
TypesDontMatch, IncorrectType, InvalidType «> 

BEGIN WriteIString[type]; CONTINUE END; 
EvalStackOverf low, EvalStackEmpty , NILesp, NotOnEvalStack, 
TypeStackOverf low, TypeStackEmpty , Inval idlnterval , 
Inval idExpression, SyntaxError, ParseError «> 

BEGIN WriteIString[exp]; CONTINUE END; 
Notlmplemented «> 

BEGIN WriteIString[ni]; CONTINUE END; 
Inval idCharacter ■> 

BEGIN WriteIString[char]; WriteOctal [index]; 
WriteIString[bracket]; CONTINUE END; 
Inval idNumber »> 

BEGIN WriteIString[num]; WriteOctal [ index] ; 
WriteIString[bracket]: CONTINUE END]; 
DIActionDefs.CleanUp[]; 
RETURN 
END; 

InterpretString: PUBLIC PROCEDURE [s: STRING, 

proc: PROCEDURt[esp: DIDefs . ESPointer] . locals: BOOLEAN] « 

BEGIN 

IF s. length « THEN RETURN; 

DILitDefs.LitTabInit[]; 

DIAc t i onDef s . Ge tSe tUp[] ; 



Command. mesa 2-Sep-78 15:32:14 Page 12 



[] ♦- DID8fs.Parse[s, table, DIDefs.TwoParse[] , proc, locals]; 

DIActionDefs.C1eanUp[]; 

RETURN 

END; 

Init: PROCEDURE - 
BEGIN 

f: GlobalFrameHandle <- LOOPHOLE[BinaryDef s .DIGrammar] ; 
table ^ f .code.codebase; 
[] <- MiscDefs.DestroyFakeModule[f ]; 
RETURN 
END; 

Init[]; 

END... 



